home *** CD-ROM | disk | FTP | other *** search
/ Apple Reference & Presen… 1994 February Supplement / ARPL-Feb-94-Supplement-PowerPC.iso / 3rd Party PowerPC Demo Apps / Aldus FreeHand / Aldus FreeHand 4.0 TV / Aldus FreeHand 4.0 TV.rsrc / Post_1246 < prev    next >
Encoding:
Text File  |  1994-01-25  |  2.3 KB  |  47 lines
  1. /AVec 256 array def
  2. AVec 0 /Helvetica findfont
  3. /Encoding get 0 256 getinterval putinterval
  4. /ANSIPatch[
  5. 16#0/grave 16#1/acute 16#2/circumflex 16#3/tilde 16#4/macron 16#5/breve
  6. 16#6/dotaccent 16#7/dieresis 16#8/ring 16#9/cedilla 16#A/hungarumlaut
  7. 16#B/ogonek 16#C/caron 16#D/dotlessi 16#27/quotesingle 16#60/grave
  8. 16#7C/bar 16#82/quotesinglbase 16#83/florin 16#84/quotedblbase 16#85
  9. /ellipsis 16#86/dagger 16#87/daggerdbl 16#89/perthousand 16#8A/Scaron
  10. 16#8B/guilsinglleft 16#8C/OE 16#91/quoteleft 16#92/quoteright 16#93
  11. /quotedblleft 16#94/quotedblright 16#95/bullet 16#96/endash 16#97/emdash
  12. 16#99/trademark 16#9A/scaron 16#9B/guilsinglright 16#9C/oe
  13. 16#9F/Ydieresis 16#A0/space 16#A4/currency 16#A6/brokenbar
  14. 16#A7/section 16#A8/dieresis 16#A9/copyright 16#AA/ordfeminine 16#AB/guillemotleft
  15. 16#AC/logicalnot 16#AD/hyphen 16#AE/registered 16#AF/macron 16#B0/degree
  16. 16#B1/plusminus 16#B2/twosuperior 16#B3/threesuperior 16#B4/acute 16#B5/mu
  17. 16#B6/paragraph 16#B7/periodcentered 16#B8/cedilla 16#B9/onesuperior
  18. 16#BA/ordmasculine 16#BB/guillemotright 16#BC/onequarter 16#BD/onehalf
  19. 16#BE/threequarters 16#BF/questiondown 16#C0/Agrave 16#C1/Aacute 16#C2/Acircumflex
  20. 16#C3/Atilde 16#C4/Adieresis 16#C5/Aring 16#C6/AE 16#C7/Ccedilla 16#C8/Egrave
  21. 16#C9/Eacute 16#CA/Ecircumflex 16#CB/Edieresis 16#CC/Igrave 16#CD/Iacute
  22. 16#CE/Icircumflex 16#CF/Idieresis 16#D0/Eth 16#D1/Ntilde 16#D2/Ograve
  23. 16#D3/Oacute 16#D4/Ocircumflex 16#D5/Otilde 16#D6/Odieresis 16#D7/multiply
  24. 16#D8/Oslash 16#D9/Ugrave 16#DA/Uacute 16#DB/Ucircumflex 16#DC/Udieresis
  25. 16#DD/Yacute 16#DE/Thorn 16#DF/germandbls 16#E0/agrave 16#E1/aacute
  26. 16#E2/acircumflex 16#E3/atilde 16#E4/adieresis 16#E5/aring 16#E6/ae
  27. 16#E7/ccedilla 16#E8/egrave 16#E9/eacute 16#EA/ecircumflex 16#EB/edieresis
  28. 16#EC/igrave 16#ED/iacute 16#EE/icircumflex 16#EF/idieresis 16#F0/eth
  29. 16#F1/ntilde 16#F2/ograve 16#F3/oacute 16#F4/ocircumflex 16#F5/otilde
  30. 16#F6/odieresis 16#F7/divide 16#F8/oslash 16#F9/ugrave 16#FA/uacute
  31. 16#FB/ucircumflex 16#FC/udieresis 16#FD/yacute 16#FE/thorn 16#FF/ydieresis
  32. ] def
  33. 127 1 159 { AVec exch/bullet put } for
  34. ANSIPatch aload pop ANSIPatch length 2 idiv{AVec 3 1 roll put}repeat
  35. /DoPatch { dup /CharStrings known
  36.  { setfont
  37. 0 1 255 { dup
  38. currentfont
  39. /Encoding get
  40. exch get
  41. currentfont /CharStrings get
  42. exch known
  43. {pop} {currentfont /Encoding get exch /bullet put} ifelse
  44. } for
  45.  } {pop} ifelse
  46. } def